500 POKE 784,10: FOR I = 1 TO 50: POKE 783,I: CALL SOUND: NEXT
510 CALL 32780: CALL 32774
520 RCODE = PEEK(776): IF RC < >1 THEN 610
530 FOR I = 50 TO 1 STEP -1: POKE 783,I: CALL SOUND: NEXT
540 CALL 32777: CALL 32783
550 POKE 784,6: POKE 783,10
560 POKE 774,35: POKE 775,5: FOR I = 20 TO 40: POKE 773,I -1: CALL DRW: POKE 773,I: CALL DRW: CALL SOUND: NEXT : CALL DRW
570 LV = LV +1:LL = LL +1: IF LV >20 THEN LV = 20
580 IF MN THEN MN = MN +1: IF MN >MM THEN MN = MM
590 HOME : VTAB 21: HTAB 16: PRINT "READY??": FOR I = 1 TO 1000: NEXT
600 GOTO 310
610 IF RC < >3 THEN 650
620 HOME : VTAB 21: INVERSE : PRINT "YOU QUIT????!!";: NORMAL : POKE 784,5: FOR I = 1 TO 10: FOR J = 10 TO 1 STEP -1: POKE 783,J: CALL SOUND: NEXT J,I: GET A$: HOME
800 HTAB 7: INPUT "";N$(FL): IF LEN(N$(FL)) >21 THEN PRINT CHR$(7): GOTO 790
810 VTAB 4 +FL: HTAB 32: PRINT LL
820 L(FL) = LL:S(FL) = SC: VTAB 20: HTAB 1: PRINT "IS THIS CORRECT? (Y/N):";: GET A$: IF A$ = "N" THEN HTAB 1: CALL -868: GOTO 790
830 ONERR GOTO 860
840 PRINT : PRINT D$"DELETE TDSCORES": PRINT D$"OPEN TDSCORES": PRINT D$"WRITE TDSCORES": FOR I = 1 TO 10: PRINT S(I): PRINT N$(I): PRINT L(I): NEXT : PRINT D$"CLOSE"
850 HOME : CALL -3100: POKE 216,0: GOTO 210
860 VTAB 21: HTAB 1: INVERSE : PRINT "I/O ERROR!";: NORMAL : PRINT " INSERT DISK & PRESS SPACE TO TRY": PRINT "AGAIN OR 'C' TO CONTINUE:";: GET A$: VTAB 21: HTAB 1: CALL -958: IF A$ < >" " AND A$ < >"C" THEN 860
1000 HCOLOR= 3: FOR I = 0 TO 49:X = RND(1) *254:Y = RND(1) *40: HPLOT X,Y: POKE 35481 +I,X +1: POKE 35531 +I,Y: NEXT
1010 PRINT : PRINT : HTAB 7: PRINT "CONCEPT BY ROBERT LAVELOCK"
1020 HCOLOR= 7: FOR I = 0 TO 6.283 STEP .1: HPLOT COS(I) *9 +260, SIN(I) *8 +20 TO 260,20: NEXT
1030 HTAB 7: PRINT "PROGRAMMING BY JOHN ROMERO"
1040 HCOLOR= 4: FOR I = 0 TO 6.283 STEP .1: HPLOT COS(I) *9 +265, SIN(I) *8 +20 TO 260,20: NEXT
1050 HCOLOR= 7
1060 PRINT : HTAB 11: PRINT "COPYRIGHT (C) 1989"
1070 FOR I = 0 TO 50:Y = RND(1) *8 +152:X = RND(1) *279: HPLOT X,Y: NEXT
1080 HTAB 10: PRINT "MINDCRAFT PUBL. CORP.
1090 HCOLOR= 5: HPLOT 1,147
1100 FOR I = 0 TO 50 STEP .5:X = I *5.58:Y = SIN(I) *1.5 +147: HPLOT TO X,Y: NEXT
1110 POKE -16368,0
1120 VTAB 24: HTAB 8: PRINT "PRESS RETURN TO CONTINUE:";: GET A$
1130 CALL -3100
1140 RETURN
1150 TEXT : HOME : PRINT "INITIALIZING..."
1160 LOC = 24576:CO = 0: FOR H = 0 TO 2:BYTE = 31: FOR I = 0 TO 3:BYTE = BYTE +1: FOR J = 0 TO 1: FOR K = 0 TO 7: POKE LOC +CO,BYTE +(4 *K):CO = CO +1: NEXT : NEXT : NEXT : NEXT
1170 POKE LOC +CO,255:CO = CO +1: IF CO <256 THEN 1170